1 POKE788,52 5 GOTO 10000 : REM INIT UND START 6 : 7 VERSION 1.8 8 "[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]" 9 "(C) 1984 BY S. SEEFELD" 10 "[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201] 20 "(null) (null) 30 "[221] ZEICHENSATZ-FORMER [221] 40 "(null) (null) 50 "[221] COPYRIGHT 1984 BY [221] 60 "(null) U. BACHFISCHER (null) 70 "[221] [221] 80 "MID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null) 200 POKE CP,PEEK(CP)AND 127 205 CP=BI+3*40+2+XP+40*YP 210 POKE CP,PEEK(CP)OR 128 :RETURN 220 POKE PP,C 225 PP=BI+XK+40*YK 230 C=PEEK(PP) 240 POKE PP,160:RETURN 250 POKE214,Y:POKE211,X:SYS58732:RETURN:REM CURSORPOSITION 300 POKE CP,PEEK(CP)AND 127:RETURN:REM LOESCH CURSOR 999 : 1000 REM HAUPTPROGRAMM 1001 REM"[163][163][163][163][163][163][163][163][163][163][163][163][163] 1030 [141] 13000 :[143] PRINT NEW CHAR 1040 BE$[178]"ESLUKANZMDVRUNDIMREADLET":[143] BEFEHLE 1100 [143] EINGABE SCHLAUFE 1110 [161] A$:[139] A$[178]"" [167] 1110 1115 [139] A$[178]"" [167] 1600 1120 [139] A$[178]"" [167] XP[178]XP[170]1:[137] 2000 1130 [139] A$[178]"CMD" [167] XP[178]XP[171]1:[137] 2000 1140 [139] A$[178]"" [167] YP[178]YP[170]1:[137] 2000 1150 [139] A$[178]"ON" [167] YP[178]YP[171]1:[137] 2000 1160 [139] A$[178]"" [167] XP[178]0:YP[178]0:[137] 2000 1170 [139] A$[178]" " [167] 2200 1180 [139] A$[178]"*" [167] 2400 1190 [139] A$[178]"TAN" [167] 2400 1200 [139] A$[178]"LOAD" [167] 2600 1210 [129] T[178]1 [164] [195](BE$) 1220 [139] A$[179][177][202](BE$,T,1) [167] [130]:[137] 1100 1230 [145] T [137] 3600,4200,4400,3400,3200,3800,3000,1380,4000,5800,5600 1240 [145] T[171]11 [137] 5400,5300,5200,5000 1250 [144] 1300 [139] A$[178]"N" [167] 3000 :[143] NEW CHAR 1310 [139] A$[178]"C" [167] 3200 :[143] COPY 1320 [139] A$[178]"I" [167] 3400 :[143] INVERS 1330 [139] A$[178]"Q" [167] 3600 :[143] ENDE 1340 [139] A$[178]"K" [167] 3800 :[143] KORRIGIREN 1350 [139] A$[178]"M" [167] 4000 :[143] M.-COLOR 1360 [139] A$[178]"S" [167] 4200 :[143] SAVEN 1370 [139] A$[178]"L" [167] 4400 :[143] LADEN 1380 [139] A$[178]"Z" [167] 4600 :[143] ZEICHNEN 1390 [139] A$[178]"LET" [167] 5000 :[143] F7 1400 [139] A$[178]"READ" [167] 5200 :[143] F5 1410 [139] A$[178]"DIM" [167] 5300 :[143] F3 1420 [139] A$[178]"RUN" [167] 5400 :[143] SHIFT F3 1430 [139] A$[178]"$" [167] 5600 :[143] VERZEICH. 1500 [137]1100 1900 [128] 2000 XP[178]XP [175] 7 2010 YP[178]YP [175] 7 2040 [141] 200 2050 [137] 1100 2200 [143] LOESCHEN 2210 [151] CP,128[170]32 2220 D[178]AD[170]YP 2230 [151] D,[194](D) [175] (255[171]P(XP)) 2240 [137] 1100 2400 [143] SETZEN 2410 [151] CP,128[170]42 2420 D[178]AD[170]YP 2430 [151] D,[194](D) [176] P(XP) 2440 [137] 1100 2600 [129] I[178]AD [164] AD[170]7:[151] I,0:[130] 2610 [141] 13000 2620 [137] 1100 2998 : 3000 [143] NEW CHAR 3001 [143]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB( 3010 T$="BILDSCHIRMCODE" 3020 ZA=1:MA=255 3030 GOSUB 14000 3040 CH=IN 3050 GOSUB 250 3070 GOSUB 13000 3080 GOTO 1100 3198 : 3199 REM KOPIEREN 3200 REM"[163][163][163][163][163][163][163][163] 3210 T$[178]"BILDSCHIRMCODE" 3220 ZA[178]1:MA[178]255 3230 [141] 14000 3240 A2[178]34816[170]8[172]IN 3250 [129]I[178]0[164]7:[151] AD[170]I,[194](A2[170]I):[130] 3260 [141] 13000 3270 [137] 1100 3398 : 3399 [143] INVERSE 3400 [143]"TAB(TAB(TAB(TAB(TAB(TAB(TAB( 3410 FORI=0TO7:POKE AD+I,255-PEEK(AD+I):NEXT 3420 GOSUB 13000 3430 GOTO 1100 3598 : 3599 REM QUIT 3600 REM"[163][163][163][163] 3610 [141] 6200 3620 [153]"" 3630 [153][163]5)"NSTOPORMALER ZEICHENSATZ" 3640 [153][163]5)"GSTOPEAENDETER ZEICHENSATZ 3650 PRINTTAB(5)"U[144]NTERTEILTER BILDSCHIRM" 3660 PRINTTAB(5)"F1[144] ... ZURUECK ZUM EDITOR" 3670 GET A$ 3680 IF A$="[133]" THEN GOSUB 6100:GOTO 1000 3690 IF A$="U" THEN SYS 828:END 3710 IF A$="G" THEN POKE53248+24,2:END 3720 IF A$<>"N" THEN 3670 3730 GOTO 6000:REM NORMAL 3798 : 3799 REM KORRIGIEREN 3800 REM"[163][163][163][163][163][163][163][163][163][163][163] 3805 [141] 300 3810 X[178]12:Y[178]11 3820 [141]250 3830 [153]"ZEICHENSATZ 1,2,3 ?"; 3835 [161] A$:[139] A$[178]"INPUT" [167] [141] 16000:[137] 2000 3836 [139] A$[177]"3" [176] A$[179]"1" [137] 3835 3840 [139] 1 [167] [151]2,204[170]4[172][197](A$):[158] 51200 :[137] 3900 3850 [151]56334,0:[151] 1,51 3860 A1[178]53248[170]8[172]CH[171]2048[172](A$[178]"K") 3870 [129] I[178]0 [164] 7 :[151]I[170]AD,[194](A1[170]I):[130] 3880 [151] 1,55:[151]56334,1 3900 [153]"CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD "; 3910 [141] 13000 3920 [137] 1100 3998 : 3999 [143] MULTICOLOR 4000 [143]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB( 4010 H1=PEEK(V+22) 4020 X=35:Y=6:GOSUB250 4030 IF H1AND 2^4 GOTO 4070 4040 PRINT"[158]AUS"; 4050 POKE V+22,H1 OR 2^4 4055 X=PEEK(55296+40*22) AND 15 4060 IF X>7 THEN 1100 4061 X=X OR 8 4062 GOTO 5220: REM ZEICHENFARBE 4070 PRINT"[158]EIN"; 4080 POKE V+22,H1-2^4 4090 GOTO 1100 4198 : 4199 REM SAVEN 4200 REM "[163][163][163][163] 4210 [141] 9000 :[143] FILENAME 4220 [151] 194,136:[143] HI STARTADRESSE 4230 [151] 193, 0:[143] LO STARTADRESSE 4240 [151] 175,144:[143] HI ENDADRESSE 4250 [151] 174, 0:[143] LO ENDADRESSE 4255 [151] 648,4: 4260 [158] 62954 :[143] SAVE-ROUTINE 4265 [151] 648,128 4270 [141] 17000 4290 [137] 2000 4398 : 4399 [143] LADEN 4400 [143]"TAB(TAB(TAB(TAB(TAB( 4410 GOSUB 9000 :REM FILENAME 4420 POKE 782,136:REM HI STARTADRESSE 4430 POKE 781, 0:REM LO STARTADRESSE 4440 POKE 780,0 :REM LOAD/V. FLAG 4445 POKE 648,4 4450 SYS 65493 :REM LOAD-ROUTINE 4455 POKE 648,128 4460 GOSUB 17000 4490 GOTO 1000 4598 : 4599 REM ZEICHNEN 4600 REM"[163][163][163][163][163][163][163][163] 4601 [141] 300 4605 D$[178]" " 4607 [151] 646,[194](55296[170]23[172]40):[143] FARBE 4610 XK[178]0:YK[178]13 4620 PP[178]BI[170]XK[170]40[172]YK 4630 C[178][194](PP) 4640 [141] 220 4700 [161] A$:[139] A$[178]"" [167] 4700 4705 A[178][198](A$) 4710 [139] A$[178]"" [167] XK[178]0:YK[178]13:[137] 4800 4715 [139] A$[178]"" [167] XK[178]XK[170]1:[137] 4800 4720 [139] A$[178]"CMD" [167] XK[178]XK[171]1:[137] 4800 4725 [139] A$[178]"" [167] YK[178]YK[170]1:[137] 4800 4730 [139] A$[178]"ON" [167] YK[178]YK[171]1:[137] 4800 4735 [139] A$[178]"INPUT" [167] [151]PP,C:[137] 2000 :[143] ENDE 4740 [139] A[178]13 [167] XK[178]0:YK[178]YK[170]1:[137]4800 4745 [139] A$[178]"LOAD"[167] 4950 4760 [139](A[177]31[175]A[179]127)[176](A[177]160[175]A[179]191)[167]4900 4765 [139] A[178]14 [167] 4700 4770 [139] A[178]20 [167] 4700 4775 [139] A[177]1132 [175] A[179]143 [167] 4700 4780 [139] A[178]148 [167] 4700 4785 [139] A[177]191 [167] 4700 4790 [153]A$; 4800 [139] XK[177]23 [167] XK[178]0 4810 [139] YK[177]18 [167] YK[178]13 4820 [139] XK[179]0 [167] XK[178]23 4830 [139] YK[179]13 [167] YK[178]18 4840 [141] 220 4850 [137] 4700 4900 X[178]XK:Y[178]YK:[141]250:[153]A$;:XK[178]XK[170]1:[139] XK[177]23 [167] XK[178]0 4910 [141] 225 4920 [137] 4700 4950 XK[178]0:YK[178]13:X[178]XK:Y[178]YK:[141]250 4960 [129] I[178]1[164]6:[153]" ":[130] 4970 C[178]32:[137] 4800 4980 : 4998 : 4999 [143] HINTERGRUNDFARBE 1 5000 [143]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB( 5010 POKE 254,(PEEK(254)+1) AND 15 5020 GOTO 1100 5198 : 5199 REM ZEICHENFARBE 5200 REM HINTERGRUNDFARBE 2 5210 X=(PEEK(55296+40*24)+1) AND 15 5220 A=55296 +18*40+24 5230 FORI=0 TO 255:POKEI+A,X:NEXT 5240 P=14 *40+28 5250 POKE55296+P,X 5260 GOTO 1100 5299 : 5300 REM HINTERGRUNDFARBE 2 5301 REM"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163] 5310 [151] 53282,([194](53282)[170]1) [175] 15 5320 [137] 1100 5398 : 5400 [143] HINTERGRUNDFARBE 2 5401 [143]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB( 5410 POKE 53283,(PEEK(53283)+1) AND 15 5420 GOTO 1100 5499 : 5600 REM VERZEICHNISS 5601 REM"[163][163][163][163][163][163][163][163][163][163][163][163] 5605 [151] 49152[170]13,1 5610 [141] 6200 5620 [158] 49152 5625 [141] 17000 5630 [153]"STOPDRUECKEN SIE EINE TASTEWAIT"; 5640 [161] A$:[139] A$[178]"" [167] 5640 5650 [141] 6100 5660 [137] 1100 5699 : 5800 [143] DATEI 5801 [143]"TAB(TAB(TAB(TAB(TAB( 5810 POKE 49152+13,4 5820 GOTO 5610 5999 : 6000 REM NORMAL 6010 REM"[163][163][163][163][163][163] 6020 [151]648,4 6030 [151] 53248[170]24,21 6040 [151] 56576,151 6050 [153]"LOAD AUF WIEDERSEHEN" 6060 [128] 6070 : 6100 [143] GBILDSCHIRM 6101 [143]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB( 6110 POKE 648,128 6120 POKE 56576,PEEK(56576) AND 253 6130 POKE 53248+24,2*1+16*0+2 6140 POKE 648,128 6150 POKE 254 ,0 6160 POKE 253 ,11 6170 POKE 251,0:POKE252,152: :SYS828 6174 POKE 53281,3 6175 GOSUB 12000 6176 GOSUB 13000 6180 RETURN 6190 : 6200 REM TBILDSCHIRM 6201 REM"[163][163][163][163][163][163][163][163][163][163][163] 6210 [151] 648,128 6220 [151] 56576,[194](56576) [175] 253 6230 [158]4096[172]14[170]256[172]5[170]10[172]16[170]0 6240 [151] 53248[170]24,2[172]1[170]16[172]0[170]2 6250 [151] 53280,6 6255 [151] 53281,11 6260 [153]"LOAD" 6280 [142] 6290 : 9000 [143] FILENAME EINLESEN 9030 T$[178]"FILENAME" 9040 ZA[178]0:MA[178]12 9050 [141]14000 9090 [158] 57812 "@0:"[170]IN$[170]".ZSA,S",8:[143] FILENAME UND GERAETE ADRESSE 9100 [142] 9110 : 10000 [143] INITIALISIEREN 10001 [143]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(" 10003 [158]4096[172]14[170]256[172]5[170]10[172]16[170]0 10005 [158]4096[172]14[170]256[172]5[170]10[172]16[170]0 :[151] 56576,151:[151] 53248[170]24,21 10007 [151] 648,4 :[153]"LOAD" 10010 [153]" ZEICHENSATZFORMER" 10020 [153]" (C) '84 BY U. BACHFISCHER" 10030 [153]" BITTE WARTEN SIE" 10040 [151] 56,90:[151]55,0:[156]:[143] BASIC GRENZE 10050 V[178]53248 10053 [151] V[170]24,21 10055 BI[178]32768:[143] BILDSCHIRM 10100 [143] LADE ZEICHEN 10110 S[178]0:[129] I[178]51200[164]51242 10120 [135]X:[151]I,X:S[178]S[170]X:[130] 10130 [139] S[179][177]4657 [167][153]"DATA ERROR":[144]:[128] 10140 [143] RASTER-INTERRUPT 10150 S[178]0:[129] I[178]828 [164] 915 10160 [135]X:[151]I,X:S[178]S[170]X:[130] 10170 [139] S[179][177]11012[167][153]"DATA ERROR":[144]:[128] 10180 [143] VERZEICHNISS 10185 S[178]0:[129] I[178]49152 [164] 49260 10190 [135]X:[151]I,X:S[178]S[170]X:[130] 10200 [139] S[179][177]15614 [167][153]"DATA ERROR":[144]:[128] 10210 [153]"ZEICHENSATZ UEBERSCHREIBEN?" 10215 [151] 2,208:[143] HI-BYTE DER URSCHPRUNGSADRESSE 10220 [161] A$:[139] A$[178]"N" [167] 10250 10230 [139] A$[178]"" [167] 10220 10240 [158]51200 10250 : 10270 [141] 6100: [143] GBILDSCHIRM 10320 [143] CH=0 : REM MOMENTALES ZEICHEN 10410 [137] 15000:[143] RESET +START 10900 [171][171][171] ZEICHENSATZ AB 8800H [178] 34816 10910 [171][171][171] GBILDSCHIRM AB 8000H [178] 32768 10920 [171][171][171] TBILDSCHIRM AB 8400H [178] 33792 10921 : 11000 [143] ZEICHENSATZ KOPIEREN 11001 [143]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB( 11010 DATA 120,165,1,72,41,251,133,1,165,2,133,3 11020 DATA 169,136,133,5,160,0,132,2,132,4,162,8 11030 DATA 177,2,145,4,200,208,249,230,3,230,5,202 11040 DATA 208,242,104,133,1,88,96 11050 : 11100 REM RASTERZEILEN-INTERRUPT 11101 REM"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163] 11110 [131] 120,169,91,141,20,3,169,3,141,21,3,165 11120 [131] 251,141,18,208,173,17,208,41,127,141,17,208 11130 [131] 169,129,141,26,208,88,96,173,25,208,141,25 11140 [131] 208,41,1,208,7,173,13,220,88,76,49,234 11150 [131] 173,18,208,197,252,176,15,165,253,141,33,208,169,4:[143] WERT1 11160 [131] 141,24,208,165,252,76,142,3,165,254,141,33 11170 [131] 208,169,2,141,24,208,165,251,141,18,208,76,188,254 11199 : 11200 [143] VERZEICHNISS 11201 [143]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB( 11210 DATA 169,36,133,251,169,105,133,187,169,192,133,188 11220 DATA 169,4,133,183,169,8,133,186,169,96,133,185 11230 DATA 32,213,243,165,186,32,180,255,165,185,32,150 11240 DATA 255,169,0,133,144,160,3,132,251,32,165,255 11250 DATA 133,252,164,144,208,47,32,165,255,164,144,208 11260 DATA 40,164,251,136,208,233,166,252,32,205,189,169 11270 DATA 32,32,210,255,32,165,255,166,144,208,18,170 11280 DATA 240,6,32,210,255,76,76,192,169,13,32,210 11290 DATA 255,160,2,208,198,32,66,246,96,36,42,61,83 11999 : 12000 REM BILDSCHIRM AUFTEILUNG 12010 POKE 53280,9:POKE53281,11 12020 PRINT"[154][147]ZEICHENSATZ-FORMER (C) BY U.BACHFISCHER" 12025 POKE BI+39,160:POKE 55296+39,0 12030 PRINT" [186][186][186][186][186][186][186][186][186][175] 12040 [129] I[178]1 [164] 8 12050 [153]" SQR (null) 12060 NEXT 12070 PRINT" [207][207][207][207][207][207][207][207][207] 12100 A[178]2[174]15[170]18[172]40[170]24 12110 [129]I[178]0 [164] 255:[151]I[170]A,I:[130] 12200 C$[178]"" 12210 [153]"" 12220 [153]C$"ESYSNDE" 12230 [153]C$"LSYSADEN" 12240 [153]C$"ZSYSEICHNEN" 12250 [153]C$"USYSMKEHREN" 12260 [153]C$"DSYSATEI" 12270 [153]C$"KSYSOPIEREN" 12280 [153]C$ 12290 [153]C$"F1SYS _ MENUE" 12300 [153]C$"F3SYS FARBE 2" 12310 C$[178]"" 12320 [153]"" 12330 [153]C$"NSYSEUES ZEICHEN" 12340 [153]C$"SSYSPEICHERN" 12350 [153]C$"ASYSLTE ZEICHEN" 12360 [153]C$"VSYSERZEICHNISS" 12370 [153]C$"MSYSEHRFARBIG EIN" 12380 [153]C$"F5SYS ZEICHENFARBE" 12390 [153]C$"F7SYS HINTERGRUND" 12400 [142] 13000 [143]PRINT NEW CHAR CH=CHAR 13010 AD[178]34816[170]8[172]CH 13020 [153]"" 13025 [153]"SYS"[201](" "[170][196](CH),5)" " 13030 [129] I[178]0 [164]7 13035 [153]:[153]""; 13040 X[178][194](I[170]AD) 13050 [129] J[178]0 [164] 7 13060 [139] X [175] P(J)[167] [153]"*";:[137] 13080 13070 [153]" "; 13080 [130]:[130] 13090 XP[178]0:YP[178]0 :[143] CURSORPOSITION 13100 [141] 200 13120 P[178]14 [172]40[170]28 13130 [151]BI[170]P,CH 13140 [151]55296[170]P,7[170]8 13190 [142] 14000 [143] INPUT STRING 14001 [143] T$=TEXT ;MA=MAXIMUM;ZA=ZAHLFLAG 14002 [143] IN$=STRING;L=LAENGE;IN=ZAHL,WENN ZAHL 14010 [141] 300:X[178]12:Y[178]11:[141] 250 14012 [153]""T$":STOP ANDCMD"; 14015 [139] ZA [167] X1[178]MA:MA[178][188](MA)[173][188](10)[170]1 14020 IN$[178]"":L[178]0 14030 [161] A$:[139] A$[178]"" [167] 14030 14040 A[178][198](A$) 14050 [139] A[178]13 [167] 14300 14055 [139] A$[178]"INPUT" [167] [141] 14400:[141] 16000:[137] 15000 [143] RESET 14060 [139](A[179][177]20)[175](A[179][177]157)[167] 14100 14070 [139] L[178]0 [167] 14200 14080 L[178]L[171]1:IN$[178][200](IN$,L) 14090 [153]" CMDCMDANDCMD"; 14095 [137]14030 14100 [139] A[179]32 [176] A[177]127 [167] 14200 14120 [139] 1[171] ZA [167] 14150 14130 [139] A$[177]"9" [176] A$[179]"0" [167] 14200 14140 [139] [197](IN$[170]A$)[177]X1 [167] 14200 14150 IN$[178]IN$[170]A$:L[178]L[170]1:[153]A$"ANDCMD"; 14155 [139] L[178]MA [167] 14300 14160 [137] 14030 14200 SI[178]54272 14210 [151]SI[170]24,15 14220 [151]SI[170]0 ,15 :[151]SI[170]1,30 14230 [151]SI[170]5 ,16[172]0[170]7 14240 [151]SI[170]6 ,16[172]0[170]0 14250 [151]SI[170]4 ,0:[151]SI[170]4,17 14260 [137] 14030 14300 [139] L[178]0 [167] 14030 14310 IN[178][197](IN$) 14330 [137] 16000:CLEAR [170] [142] 14400 [153]" CMD"[201]("CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD",L); 14410 [153][201](" ",L); 14420 [142] 14999 : 15000 [143] RESET /FEHLER 15001 [143]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(" 15010 [151] 2,CH:[143] CHARAKTER RETTEN 15020 [156] 15030 CH[178][194](2) 15040 V[178]53248 15050 P1[178]56321:[143] PORT1 15060 ZE[178]34816:[143] ZEICHENSATZ ANFANG 15070 BI[178]32768:[143] BILDSCHIRM 15080 [129] I[178]0[164] 7:P(I)[178]2[174](7[171]I):[130] 15100 [137] 1000:[143] RUECKSPRUNG 15370 : 16000 [143] LOESCHE ZEILE 16001 [143]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB( 16010 PRINT" " 16020 RETURN 17000 REM ERRORKANAL 17001 REM"[163][163][163][163][163][163][163][163][163][163] 17010 [160] 15:[159] 15,8,15 17020 [132]15,ER,A$,B$,C$ 17030 [139] ER [178] 0 [167] [142] 17040 X[178]12:Y[178]11:[141] 250 17050 [153]"STOP"ER"CMD "A$" "B$","C$ 17060 [129] X[178]1 [164] 1000:[161] A$:[139] A$[178]"" [167] [130] 17070 [137] 16000:[143] CLEAR + RETURN